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17801 --- CHANNEL/4962 P/N=1635136 FC=374888 PAGE 01 17801 --- CHANNEL/4962 P/N=1635136 FC=374888 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPRTGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CORP 1976 
3 COPY LOG780 ** ~ ¥ * x 002500 25F4 201 DC A (ENTPT POINT TO MAP ENTRY POINT TABLE 
4 REGGE G4 010s coe 5 OSE PRRGNGNE SR Oe Eos ceeds es aes 2OQ FERR RRR RER RRR K EKER ERK HH REE IR EERE RE EE RRR ARE EEK EE RR ER OK 
5S * st 20D ERKK RK KKK RK RKKRKEK EEK KEKE KEK KER KKK KEKE KKK KKK KKK KEKE KKK KKK KK KH KK KK 
6 * #4 PREREQUISITES * * 204 ** vied 
7 * * 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) + 
8 * NONE * 206 ** TO LOCATE THE CORRECT RULE TO INVOKF, TO OBTAIN THE PROPER * * 
9 * x 207 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR ** 
10 ORO IO III IOI IOI ROR IR IOI IOI IOI IG CIO ORI III ICI RG IO koa ak 208 ** THE INDICATED MESSAGE (S). THERE ARE FOUR TABLES USED FOR THIS ** 
11 * * 209 ** PURPOSE THEY ARE: - 
* ek Cc * OK * 
13 a Bis ag PEE Ae) Sie ACEESS T1EY ence on muateenDSOTMIORI is oe 
: 14 * CHANGES MADE TO COPRECT E IND * ‘ 
15 * Rien ere Conan UE BORE * 213 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * * 
EMER LELELL LESS SS SPP T TTS SS STS SSCS SS CSS SC CCC SC Te TS CSCS SSCS CSCTCCoSTTSCSCSCTOST IST TT at tS 214 **% ENTRIFS ARE AS FOLLOWES * * 
1g * : s1e@ se a) OTHE STEP NUMBER TN DECIMAL) OTA +* 
18 * ek ‘AS KK * 
19 * ea ae ; 217 ** C} AN EQUATE FOR THE STEP NUMBER ** 
20 * 27-11985 x, 218 ** * 
31 * * 219 ** RULE INFORMATION TABLE * 
PYM ETL S SSL S TSS SCS ST SPSS Tee ST SS CTS TST ST TCT CCCCCCCTOCCCCCCTOCCTCT CCC CTT TT. 220 ** THIS TABLE CONTAINES THE PEQOIRED INFORMATION TO EXECUTE “= 
a? 2) ts NTgDELSODEEMNED" AREA EMEYCKTED BRtOu'CHGo'Ge THaLgéts 33 
24 * kK C R T * 4K * . ° 
58 x PeeGren oer te SONS ; 223 #* INDICATED WITH A X*0000" FOR THE RULE FOUATE. ** 
26 * NONE * 224 ** -* 
27 * k 225 ** SQUES * 
28 AIO IORI IOIOR IO III IOI IOI IOROIGIOIIIIGIIIOIOI OIRO IGRI ROI R i kok ik 226 ** A) RULE EQUATE X*0100! > * 
29 * M 227 * B) ADDRESS OF THE YES LEG RULE = 
30 * KEK a ‘ * KK * 
hee’ oe oe ‘ 530 ++ vEEET A) RULE EQUATE X*0101! + 
32 * DATF 17DEC76 DATE O4MAR7T7 DATE 10JUN77. DATE 15SEP77 * Q 
ae : E.C. 578486 E.C. 578638 E.C. 578625 E.C. 754882 * ae pe B} ADDRESS OF MESSAGE TO PRINT sat 
x 
35 * DATE O1MAR78 DATE O01JUN78 DATE O1SEP78 DATE * 233 ** $STOP eid 
36 * E.C. 75528 oA “Ce 37 eC. * 234 ** A) RULE EQUATE x'0102' +k 
37 * eee oe etal Sepee, ieee * 235 ** B} ADDRESS OF MESSAGE * 
002500 38 PEP LE ZE LEE SSE SSS LETS SETS SSS SS ST SSCS SSS SSCS SCOCSCSSCSSSOSOSCSCSCCSSCSCT CT CS CTCL ST TS 236 si $GOTO nl 
40 17801 START X'2500! START ADDRESS OF ALL 'I' TYPE PROG 
000100 41 @QUES EQU X'0100! EQUATED VALUE FOR MDI STATEMENT 238 ** A) RULE EQUATE X*0200# + 
000101 42 OFIXT EQU  x*0101' EQUATED VALUE FOR MDI STATEMENT 239 SS B) ADDRESS OF MESSAGE +* 
000102 43 @STOP EQOU  xX'0102! EQUATED VALUE FOR MDI STATEMENT 240 C) NAME OF MAP TO GO TO ibe 
000200 44 @GOTO EOO X'0200' EQUATED VALUE FOR MDI STATEMENT 241 ** D) ENTRY POINT WITHIN GO TO MAP TO SSE -* 
000201 45 @CALL EQU) x*'0201° EQUATED VALUE FOR MDI STATEMENT 242 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE a 
000300 46 OINPT EQU x'0300! EQUATED VALUE FOR MDI STATEMENT fae ae nie 
000400 47 @OUXX EQU x'0400! EQUATED VALUE FOR MDI STATEMENT 245 $CALL ; ; <7 
000500 48 @TUXX EOU) x'0500' EQUATED VALUE FOR MDI STATEMENT 246 ** A) PULF EQUATE X'0201 ** 
000600 49 @NVLD EQU) x*06008 EQUATED VALUE FOR MDI STATEMENT 247) ** B) ADDEESS OF MESSAGE vine 
000000 50 EO EQOU. x'0000! EQUATE FOR EQUAL 248 ** Cj) NAME OF MAP TO CALL nens 
000004 51 NE EOU X'O004' EQUATE FOR NOT EQUAL 249 ** D) ENTPY POINT WITHIN CALLED MAP TO USE * 
000008 52 HI EQU x'0008! FOUATE FOR HIGH 250 ** E) INDICATOR FOR EXTFRNAL OR INTERNAL REFERENCE ok 
00000c 53 NH EOU x*000C! EQUATE FOR NOT HIGH re aes ee 
000010 54 Lo EQU x'0010! EQUATE FOP LOW 252 SINPT : 
000014 55 NL EQU x*'O014! EQUATE FOR NOT Low 253 ** A) RULE EQUATE X'0300 = 
000010 56 LT EQU  x*'0010! EQUATE FOR LPSS THAN 228 S* B) INPUT TYPE VeoeDre OR HEX) | 
00000c 57 LE EQU x'000C! EONATE FOR LESS THAN OR EQUAL TO 255 C) ADDRESS OF YES LEG RULE 
000008 58 GT EQU xtoo08! EQUATE FOR GREATER THAN 256 ** D) DESTINATION LOCATION OF TNPUT DATA ** 
000014 59 GE EOU xX*'0014' FOUATRE FOR GREATER THAN OR EQUAL TO 257 ** E) LENGTH OF INPUT DATA ++ 
000200 60 ON EOU X'0200! EQUATE FOR ON 258 ** F) LOWER LIMIT OF GOOD DATA -< 
000202 61 OF EOU  x*0202! FOUATE FOR OFF 259 ** G) HIGHER LIMTT OF GOOD DATA “s 
000204 62 MX EOU x*0204' EQUATE FOR MIXED 260 ** pt 
000000 63 EBC FOU x'0000! FOUATE FOR FBCDIC DATA TRANSFEP 261% SQUXX : ; ae 
000001 64 HEX EOU x'0001' FOUATE FOR HEX DATA TRANSFER 262 * A) RULE EQUATE xX'0400 * 
000001 65 XTRNL FOU xX*'0001' EQUATE FOR EXTERNAL REFERENCE 263 ** B) ADDRESS OF YES LEG RULE is 
000000 66 INTRNL EQU x'00008 EQUATE FOR INTERNAL REFERENCE 264 ** C) TU BRANCH TO ADDRESS a * 
000000 67 PARM EOQU x*'0000' EQUATE INDICATING PARAMETER 265 ** D) TU BRANCH TO ADDRESS (SECONDARY) ** 
000001 68 DA EOU X'O0001' EQUATE FOR DEVICE ADDRESS 266 ** E) LENGTH OF PARAMETER IN BYTES * 
000002 69 UA EQU x*0002' EQUATE FOR ONIT ADDRESS 267 ** F) PARAMETER TO PASS TO TU a? 
000000 70 DUMMY EOU -X*0000' DUMMY EQUATE 268 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * 
001800 72 PID EOO ¥*-x'0D00! ADDRESS OF MDI HEADER 269 ** a 
000232 73 PTYPE EQU *-X'22CE! ADDRESS OF PROCESSOR TYPE FIELD 270 STUXX : : : 
00180C 74 STEPNUM EOU PID+x'000C! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULE EQUATE X'0500 * 
00180E 75 OPWD1 FOU PID+xX'OOOF! ADDRESS OF OPTION WORD ONE 272 ** B) ADDRESS OF YES LEG RULF was 
001810 76 OPWD2 EOO PID+x'0010! ADDRESS OF OPTION WORD TWO 273 ** C) TU BRANCH TO ADDRESS +s 
001818 77 TUSTATUS EQU PpID+x'00188 ADDRESS OF TU STATUS WORD 274 ** D) TYPE OF COMPARE TO MAKE ON RESULTS pies 
00181A 78 TUWORK EQU  PID+tX*OO1A! ADDRESS OF TU WORK AREA 275 ** E) LENGTH OF COMPARED RESOLTS ** 
00189A 79 TUPARM1 EOD PID+X'OO9A' ADDRESS OF PARM 1 POINTER 276 ** F) MASK FIELD FOR COMPARF vied 
00189C 80 TUPARM2 EQU pIpD+x'009C! ADDRESS OF PARM 2 POINTER 27] ** G) LENGTH OF PARAMETER IN BYTES pied 
00189E 81 TUPARM3 EQU  PID+x'OO9E* ADDRESS OF PARM 3 POINTER 278 ** H) PARAMETER TO PASS TO THE TU ++ 
0018A0 82 TUPARM4 EQU PID+tx'OOAO! ADDRESS OF PARM 4 POINTER 219 ** IT) STORF ADDRESS FOR FIRST 8 WORDS OF PARAMETER +s 
0018A2 83 TUPARMS EQU PID+xX*OOA2! ADDRESS OF PARM 5 POINTER 280 ** : ad 
OO18AY 84 TUPARM6 EQU  PID+X'OOA4U! ADDRESS OF PARM 6 POINTER 281 ** $NVLD : “+ 
0018A6 85 TUPARM7 EQU  PID+X'OOA6! ADDRESS OF PARM 7 POINTER 282 ** A) RULE EQUATE X'0600° ** 
0018A8 86 TUPARMS EQU  PID+xX'OOAB? ADDRESS OF PARM 8 POINTER 284 ** ple 
OO18AA 87 TUPARM9 EGU  PID+X*OOAA® ADDRESS OF PARM 9 POINTER 285 ** ENTRY POINT TABLE ** 
OO18AC 88 TUPARM10 EQU PID+X'OOAC? ADDRESS OF PARM 10 POINTER 286 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT *% 
OO18AE 89 TUPARM11 EQU PID+X*'OOAE! ADDRESS OF PARM 11 POINTER 287 ** HE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE + 
0018B0 90 TUPARM12 EQU PID+X"OOBO! ADDRESS OF PARM 12 POINTER 288 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: =* 
0018B2 91 TUPARM13 EOQU} PID+X'0O0B2' ADDRESS OF PARM 13 POINTER 289 ** a 
0018B4 92 TUPARM14 EOU PID+XtOOB4! ADDRESS OF PARMS 14 POTNTER 290 ** A) NAME OF ENTRY POINT <* 
0018B6 93 TUPARM15 EOU PpID+xX*00B6! ADDRESS OF PARM 15 POINTER 291 ** B) ADDRESS OF ENTRY POINT RULE TABIE ++ 
001858 94 TOPARM16 EQU PID+x'OOB8! ADDRESS OF PARM 16 POINTER 292 ** ** 
0018BA 95 TUMSGWTR EQU) PID+X*OOBA? ADDRESS OF -> TO COMMON MSG WRITER 293 ** THE ENTRY POINT TABLE END IS INDICATED BY A X*0000! nis 
O018BE 96 TUUA EQU PID+x'OOBE! ADDRESS OF UNIT ADDRESS IN EB 294 ** *% 
0018C0 97 TUDA EQU  PID+x'00CO! ADDRESS OF DEVICE ADDRESS IN EBC 295 ** MESSAGE TABLE sabe 
0018C2 98 TUBUFF EQU  PID+xX'00C2! ADDRESS OF LAST USED WORD IN MAP 296 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPEFATOR * 
0018C4 99 TULAST EQGU PID+x'O00Cy? ADDRESS OF LAST ADDRESSABLE WORD 297 ** VIA THE MDI SUPERVISOR. THE TABLE TS AS FOLLOWES: pass 
0018C6 100 TURESULN EQU  PID+x'00C6! ADDRESS OF LENGTH OF TU RESULTS 298 ** vise 
0018C8 101 TURESOL EQU  PpYD+x'00C8* ADDRESS OF TU RESULTS FIELD 299 ** A) EQUATE FOR START OF MESSAGE RLOCK -* 
0018FC 102 MAPNAME EQU PID+xX'OOFC! ADDRESS OF MAP NAME FIELD IN HFX 300 ** B) NUMBER OF LINES OF MESSAGE ue 
001948 103 TUINPT EGU PID+x'O1KU88 ADDRESS OF SINPT DATA 301 ** C) LENGTH OF FOLLOWING LINE -% 
00196E 104 PARMARA EQU  PID+¢X'O16EF! ADDRESS OF $INPT INPUT AREA 302 ** D) FIRST LINE OF MESSAGE pies 
0019B8 105 @DCADD1 EQU PID+x'01BB! MDI POINTER 303 ** E) LENGTH OF FOLLOWING LINF =* 
OO19BA 106 @DCADD2 EQU  PpID+x*'O1BA* MDI POINTER 304 ** F) SECOND LINE OF MESSAGE +* 
9919Cy 107 SUPSTAT EQU = =PID+XtOICYs ADDRESS OF MDT STATUS ane oh G) ETC. ve 
0019DA 109 DEVE DD: z . Eero wnes aUpocee or neviGn rpyecer Caco s JQ 7 Re ee ee he hh OOOO ICR OR OR FOR OCR OE 
0019 BY 110 DEVADD2 EOU PID+xX'O1FE4° ADDRESS OF DEVICE ADDRESS TABLE 2 30GB FERRER EKER SEHR EERE EEE EEE EERE EEE EKER EERE ER EEK ERE EERE REE EEE 
0019EE 111 DEVADD3 EGU PID+xX*O1EE® ADDRESS OF DEVICE ADDRESS TABLE 3 
0019F8 112 DEVADDS EOO0) PpID+¢xX*O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 
001A02 113 DEVADDS EQU  pID+x'0202' RDDRESS OF DEVICE ADDRESS TABLE 5 
001A0C 114 DEVADD6 EQU PID+x'020C? ADDRESS IF DEVICE ADDRESS TABLF 6 
00 1A 16 ie DEVADD7 E ee PID*X"O216" ADDRESS OP DEVICE ADDRESS TABLE 7 
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: M CORP 1976 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPIES CHT I 
108" DISABLE STORAGE PROTECT 
0026EC 4020 2€8F FFF1 776 TO1T2 MVWI X'FPF1',SINTL SET UP INTERRUPT LEVEL FOR PREP OO oBne” Go o8 rad oan ae aya “roo BOs Benes BNE ROU ECE bes 
0026F2 4724 3c44 177 MVA  IOBLK,RY RESET DEVICE BO58GS . tooo abe Seon ee TUR “CeBUe ol oca ae R 
OO026F6 4624 273A 7178 NVA ITTST1+10, R6 SETUP RFTURN ADDRESS IF ERROR 002898 4029 3898 0001 893 T0172 AWT 1 CSDCBt+1G FORCE DCB SPEC CHECK 
OOZGFA. 6008 ae ovo RESET : 00289F 4c64 894 TBTS (RU,XE SET EXPECTED ERROR 
002700 6002 784 ITsTS svC IDLE 7" OO28A4 2934 896 DC A (TO 1£R) ERROR 
002702 BS8PE 182 JCT ITSTS RO 002806 4CAI 897 TBTR (F4,ER) TNTERRUPT ERROR? 
bOoTaR one dea Utes ippeenee” ae ee 002848 1033 898 JOFF 2014 NO,DCB SPEC CHECK NOT REPORTED 
t ' REC 
O0O270A 4724 3c44 785 NVA  IOBLK,R7 READ DEVICE ID A im a Bac a ange PePecone 
DGoaoL cones TeoOMOte ye, -aeeo eee Se gy ee eee en ON 0028B2 402B 265C 1000 901 THI  X*1000',$ISB DCB SPEC CHECK BIT ON IN ISB? 
902714 4O2F 3CHE OOBA 188 CHI XY Q0BA', ToMoD+4 VERTFY DEVYCE ID-DUT,FIXED HEADS Boodcn weoGe ona eae NO-ERROR 
027 STATUS FOR FAILING oP 
O0d71c GOOF 3C4E OOAA 790 CWI X'OOAA',TOMOD+4 VERIFY DEVICE ID-DUT,NO FIXED HEADS eeScea: “neoe me ae A960 ae Torq aeeccu a Oheneeton SRE S: 
NaoeoE “woo. aa4 Ghee Geen 0028C8 8828 265C 18CE 906 MVW $ISB,fURESUL46 ISB 
need poe Lee Ge ace ee a ees Aeon nee O028CE 8828 2656 18D0 907 MVW OPTN3,TURESUL+8 OPTION WORD. 3 (CONDITION CODES) 
108? DIS 
BOOT oe eo oee ce dae : an REN Sone meee O028D6 8020 388A 2000 909 7 NP Aver X+2000", csDCB RESTORE VALID CS DCB 
002730 4029 268E 0010 795 ITST1 AWI X'10',$INTL ADV INTR LEVEL, STARTING AT O nOoeue inode san! Sere a6 me SA hoa ee R 
O0973R 36s Ce 799 Dee RTO TERY ERROR) e CNEL BLOCK AND PREP DEV 0028F2 4724 3c44 911 MVA  TOBLK,R7 RESET 
00273C 4020 39F6 0008 798 MVWI 8,CEDAT SET DIAG MODF 1 AND 4 0028E6 6008 g45 al eg eee 
O027h2 GEOI 3985 ane BAL  CEOP 1, R6 : 0028E8 6802 3cDC 9144 B SCONX RETURN TO MDI CONTROLLER 
002746 2934 800 DC A (TO 1ER) ERROR 9 154 RIOR RIOR IIR IORI ROR IIR RR ROR ROR OR ROR ROG ROKR RR $9 BO atk 
002748 4Ccé4 801 ITST3 TBTS (R4 XE) SET EXPECTED FRROP aye e 
NOoyua> uaa ae Bee ETOCS ,RG Papo ee ee Q028EC 4A4E 917 TO1R TBTS (R2, 14) DFVICE ID NISCOMPARE 
01 X 
NOsneS sea da DeRO es aoa nek eer ter nee 0038F0 | GAUP $18 T01B TTS (R2, 15) CYCLP STFAL STATUS OR SEEK ERROR 
; J 01 E 
002756 8025 38EA 265C 806 CB_  ZEROO, SISB Pepe gene BOR ZEROS O0S8Fu GAUB 631 To1L TBTs (82,11) RESIDUAL ADDRESS ERROR 
J 
BOSTCE. ERGG Beam” Shi tae. ewe ee Peeoes ee ee O028F8 GAGA 953 TOIM TBTS R2, 10) WRONG CYCLE STEAL ADDRESS 
EX 
DUTITO> EEOR OoLa gi poeR” baa. ERROR OM ee oe eee O028FC AUS 995 TOIN TBTS (2.9) INVALID STOR ADDR NOT DETECTED 
EXIT 
bOoTaR. ERGY OoED oe ae Sue: onhae PRRORS De oe 003900 GA4B 9397 T01P TBTS (F248) WRONG CONDITION CODE 
EXIT 
aan Ses Bt Shee. nena e ROL BCH AND CONTINUE TEST — 003904 Baad 959 T010 TBTS (R27) INV STOR BIT NOT ON IN ISB 
EXIT 
002786 4020 387A 8005 8 16 MVWI xX'8005',SKDCB SEEK’ CONTROL WORD - CHAINED TO XIocs Baooon Peue aay wag Dome 6) ENGR SHODECE NOR WERECOED 
00278C 4020 387c 0000 817 MVWI O,SKDCBt2 SFEK NO OP 00590R SnDB 93> ; AR ee oer 
002792 4020 3882 0000 818 MVWI O;SKDCB+8 SELECT HEAD paoegn “pene 933 T01U ~TBTS (R25) ECE WROR NOT ON Maas 
OOST9E 4030 35r6 OO0R 820 NVT CADCE SKDCBs 10 SET DING NODE. 2 E 4 TURN ON INTERNAL O0290E 50D6 934 J to%e EXIT Sone 
re) 3 
0037 44 6 £03 398F 82] BAL Cone? * READY TO ALLOW CYCLE STEALS no504> ee aac TOV abs Or a ee CHECK NOT REPO : D 
7 ON IN IS 
OO27AA 4C64 823 TBTS (Rd x8} SET EXPECTED ERROR BDOgde. “Sane eam ae ed ee a 
OO27AC GEO 3276 820 BAL SEEK , R6 SEEN NOE OF 002918 aud 939 TO1Y TBTS (R2,2) FALSE STORE PROTECT CHECK 
B037B2 cag B56 TETR nro) INTERRUPT FRROR? OO2Z97A 3000 ono J 1O%e Ee RRSHEeS GORD 
0027B4 6800 2910 827 BOFF $014 NO-DCR SPEC CHECK NOT DETECTED guoo N68 chee Nace Ee TOR Ove TURESULS o. R2 PL Een Gecuunc aeup SD 
OO2TBB 402B 265C 1000 828 TWIT =X. 1000", $ISB DEP oeee Croke 002924 CA25 18CC 943 MVWZ TORESUL+4 R2 CLEAR RESULTS WORD 3 
OO2TBE 6800 2914 829 BOFF TO1W NO _ERROP 002928 CA25 18CE 944 HVWZ TURFSUL+6{R2 CLEAR RESULTS WORD 4 
0027C2 4020 387A 0005 830 MVWI X*'0005',SKDCB RFSTORE SEEK CONTROL WORD Bobo “coe ane ane A ge PEE Beer TS foee a 
0027C8 GEOR 2938 831 BAL $CKSK) R6 SEER CHAIRED 10 (SEEK 002930 4224 18c8 946 MVA TURESUL,RD ADDRESS OF PFSULTS 
OUST cES aoe ac Dc A (TO 1B) 002934 4AuD 947 TO1ER TBTS (R2, 13) OTO CC ERROR 
0027D2 Weed B34 TBTS (RO-XE)’ SET EXPECTED EPROR 002936 50c2 948 x t01¢ EXIT 
949 * 
Boo Toa oosE Bae oer rots hs Cha? Syene cee Oe 002938 4020 3cus 2942 950 SCKSK AVA CHSK,I0DCB SET UP CONTROL BLOCK FOR SVC CALL 
0057De 6400 28F0 B36 BON 4018 se pe ee es Soe, 
_ G 
005720 Coon Se78 8 39 CW CSTL1,R1 CHECK RESIDUAL ADDRESS SBOGNA. GOOG sea ee See nr oe a ee SEN 
OO27E4 6801 28F4 840 BNE TO4L RESIDUAL ADDRESS ERROR yOpOiES Bho nee ie Ronee 
0027E8 6808 18C4 841 MVW  TULAST,RO LAST VALID STORAGE ADDRESS anpeies coeD Bee ne SE 
OO27EC 7802 OOOE 842 SWI 14,R0 DEV LAST VALID STORAGE ADDR FOP CS 00594R 0000 957 DC X*0000! 
0027F0 8828 18C2 3898 843 HVW TUBUFF,CSDCB+14 FIRST AVAILABLF STOR LOCATION Rosca” “aaae Aen He ek ocR) atte RaDRESe 
0027F6 4C64 844 TOWH TBTS (RU, XE SET EXPECTED FRROR NOSOLE: BONG Be6 pe Sion nee 
Bo34be $892 385° bite BAL eG sex 5 OT tea 320 * 
OO27FE 4CA1 847 TBTR te ER) INTERRUPT ERROR? re 77804 nore guaoe O1DECT6 
002800 1277 848 JON 016 YES GH Yt RRA EEE RHE HARKER ERE EERE EK KK KH I RR EK EKER KEOGH PERT 6% 
002802 C934 3898 849 cw CSDCB4+14*,R1 CHECK RESIDUAL ADDRESS Brees 
002806 1878 850 INE  TO1M WRONG CYCLE STEAL ADDRESS Bere emcee ise 
002808 C824 3898 851 CW CSDCB+14,RO END OF PHYSICAL STORAGE? eee 
c (4 
003808 4029 3898 0008 B53 AWI 8 CSDCB+ 14 INCREMENT BUFFER ADDRESS ge oce THIS ROUTINE WILL FORCE ERRORS THAT THE ATTACHMENT WILL REJECT 
F 
002816 7806 FFF 0 B55 T01G CHI _XSFFFO',RO MAX STORAGE? ayes PURPOSE 
A 7 
00281C 4029 3898 OOOA 857 AWI 10,CSDCB+14 FORCE INVALID STG ADDRESS Le as CALLING SEQUENCE S/05/7 
002822 4c64 858 TBTS ged XE) SET EXPECTED ERROR ET ies 
003858 5834 PO REO Bee ere EntOn 975+% THE FOLLOWING ERRORS ARE FORCED: 
976+% ; 
00282A 4CA1 861 TBTR (RU,ER) INTERRUPT ERROR? 
00282C 1067 862 JOFF ELS NO, TNY STG ADDR WOT REPORTED oe ‘es pene So AL eae er 
00282E 4O2F 265A 0702 863 CWI X'0702',SIOIN ARE COND CODES 7 AND 2? aaocs 4. TVALTD Seeroe WoadeEE (ER oekeor x0) 
peoese.. dose Boe mur Seeay Pouctr 980+* 3 INVALID SECTOR NUNBER (DIAG OP) 
002836 402B 265C 0400 865 TUI xX'0O400',$ISB TNVALID STORAGE BIT ON IN ISB? 38088 3. INVALID SECTOR 
00283E 4020 3898 2678 «867 TOIT. -AVA’ CSBBF,CSDCB+14 CS_ ADDRESS go2¢¢ 9: TAWALID BYTE Count (READ SECTOR TD) 
002844 C920 0232 868 HVE CPUID,RO DETERMINE TYPE OF PROCESSOR Seis as NN baea gneece START DIAG) 
85+*% ° 
OO284A 1826 870 INE TO4Z JUNP IF NOT 4955 9 3 
00284C 4020 388A 2000 871 HVWI X'2000',CSDCB CS CONTROL WORD de See GRE CaL Bre OC CTR TATED COMER et eons 
002852 6208 872 EN X'08! ENABLE STORE PPOTECT KEY Hee ; TURESUL BEE (oetNV TED Sorte e es crn OP) 
002854 4c64 873 TRTS (Ru, XE) SET EXPECTED EPROR 989+ * : TURESUL BIT 2--INVALTD SECTOR # (RD SECTOR ID) 
002856 6£03 3B50 874 BAL Tots ,RE CYCLE STEAL STATUS TO CAUSE INTER bars : TURESUL BET Sc-TNVAEED Soenok § (pene ons 
Oosgee  GeR gy? Den NATOLEP) es 99 14% : TURESUL BIT 4--ODD BYTF COUNT 
Ooseee 45he ais ene oso TES PLAST ceope.: 99248 : TURESUL BIT 5--INVALID BYTE COUNT (RD SECTOR 1D) 
00285E 125C 877 JON O11" YES-FLASE STORE PROTECT KEY peed ; PURO Ser Banco payee ro Been eouna ee ro 
002860 4029 388A 0100 878 TO1K AWY xX*0100",CSDCB SET OR INCREMENT KEYS sonce ; en a ee ae ge Ye 
002866 4C64 B79 TBTS (R4, XE) SFT EXPECTED ERROR aoe ce PUpeeu pees uec gee ones 
002868 6£03 3B50 880 BAL ToS R6 CYCLF STEAL STATUS Bore > eRe Ue tn oro. e EReOe ene 
00286C 2934 881 DC A (70 1£R) ERROR sons . te ee areas eee 
00286B 4cat 882 TBTR (RG ER) INTERRUPT ERROR? ; soute . fe | cea or eee 
002870 1048 883 JOFF 01K NO,STOR PROTECT NOT REPORTED peed : TURE SUL BUd Verse soe ee NOT USED 
002872 4O2F 265A 0702 884 CWI X'0702',$IOIN ARE COND CODES 7 AND 2? Bes . Heb eee eee MOR sep 
002878 1843 885 INE TO1P NO-ERROR 7 1000e . SURE SUD BIS. Vacs ost cs NOT USED 
00287R 4028 265C 0200 B86 THI X'0200', $TSB STOR PROT BIT NOT ON IN ISB? 1009 . PURESUL BIR. Noe oe s2 2 NOT USED 
002882 402P 388A 2700 888 CwY X*2700",CSDCB ALL KEYS CHECKED? Oolee . 
002688 18EB 889 INE TOK NO 
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17801 --- Cc 
ae eee BANNEL/AOG2: P/N=1635136 FC=374888 eae 
ECT TEXT STMT SOURCE STATENE : eas CHANNEL /89 
RAR eA Hues a NT COPYRIGHT TBM CORP 1976 rt re ss P/N= 1635136 EC=3748A8 PAGE OOA 
BOtoE. (aon SCS SRL  13,R3 ee tele ice - STMT SOURCE STATFMENT 
0039E6 €8D2 0000 1321 KVE Ra, S{OrN POSITION CC CODE TO BITS 13-15 ae COPYRIGHT IBM CORP 1976 
Asoc. bEOE 1923 * RFTURN TO USFR 5036 ot CALLING SEQUENCE 
IORST DC ; 
S35385 886 ieee TREE bc, Higegee BERET, gen zzPc g038 ea 
0039FO 2105 1926 DC A (FO *) DATA WORD Ae RETURN 
Apacer vee 1927 IDCBI pc X'2105° SENSE WORD ONE souy s 
ag3gee 986 He ceeteroc Eredar" cE DIAG, 091 3383 Tenenans oe 
Bade. hace 1931 IDCBCE? DC ot fend SENSE DhTR. sOuu * Le F SF SSS SSS SSS SPREE SEL SESS ESP STS TSR ESTES SLES ES SSS SLES LSS SSS SEE SE SE S 
0039FC 2F05 1933 IDCBRAP DC X¢2F05" SENSE DATA 003A66 4724 0005 s0ue LWS 
OO agRE 0000 1934 RAPDAT DC. A(#-* READ DIAG WRAP OO3A6A 4324 2661 oC To SED: Bed 5,R7 PYTE COUNT 
ae eee ee ae Neee ee OO3R73 2BAL 2048 NVA Se ADDR OF RD SECT ID DATA BUFFFP 
5049 aye, Neat ADDR OF WR SECT ID DATA PUFFER 
1938 SOpe —RIRTE 003474 5600 2050 ¢ (RS) MOV DATA FROM RD TO : 
1939 £*, (T78TO) | ay 01DECT6 ZOO. bXS {Re} RETURN TO CALLER o> Ue DUFEER 
1941 * fi IC 12/01/7706 I io tof i ack a0eR : 
1942 * SUBROUTINE 2055 + To ELECUPS ALE To COnMn Ngo eno 
tang fe atee TO EXECUTE ALL 1/0 COMMANDS FROM A COMMON PLACE 
1382s re eae EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
1345 3 : oe ce LIST AND AN ECIAL SWITCHES BEFOPE PRANCHING TO THE 
Teas COMPAPE READ SECTOR ID DATA TO WRITE SECTOR ID DATA s0e0 * THIS 
\onG & Gane : ener : SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
NG SEQUENCE 2062 * 1. LOS 
1950 * : T INTERRUPTS BY TIMING OUT 
1951 $ ite. SenBHOCE acenaa 2063 + 21 ERROR THTERROPTS RECEIVED FROM SUPVR OO 
tees : BAY, CCRER EES TEST) eee dl THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
RETURN 2067 * f 
1355 * - 3068 § 1 FAL SRKEW,R6 READ SECTOR ID SKEWED 
1389 § (R6,2) -~  WORMAL 3030 © 2 BAL  SWKST, RE WRITE SECTOR TD SKEWED (TEST) 
* 3 BAL S$RWST,R6 
1959 KRRERERE REE ER EEK , READ SEC 
Saaunn. suas Nees 1960 * FORO RIO RRR SI RO Bo ROR OR a tk aaa : 4 ae Sera TOR ID SKFWED (TEST) 
Q03K04 4324 391F igen nPRT AVA. SétsT+1,R3 Pelee orne sou8 #5 OE ee ce 
BINS igh 3546 fee pe Hoes SF ep Seer TENE (TER a. eRITE SECTOR TD SKEvED 
3A0E 47 * 6 BAL 
pee nao oees 1965 CMPRW AVWI 4 ,P7 COMPARE BYTE COUNT 2078 * : BESEC ING WPITE SFCTOR TD 
003A16 4524 3910 1967 OVE: eat Nene ADDR OF RD SFC ID 2079 * 7 BAL $WSTS,R6 
OO3ATA 2BA6 1968 AVA WESID,R® ADDR OF WR SEC ID DATA ae . ‘ ae ee wee 
OO3A1C €8CO 0002 TTGY CFNEN (P3), (R5) COMPARF TD DAT ATA 2081 * 8 BAL $DIAG,P6 
003K20 E8D2 1969 BE RE, 2) A 2082 * ’ DI AGNOSTIC 
0000 1970 B R6} * pet aioe anes ID DATA OK 37083 * 9 BAL xIOCS 
1343 a ehecs beeeiensne pales nae a r ei ee ree 
pee FER III IIR II RRO SO FOR SOR RIOR dK tok OK 2 RK Att po tee SSEEKU RG SFEK 
1974 * SUBROUTIN * FE 
RPOSE 2089 * 12 BAL  §R 
359 * DID,R6 READ SEC 
1978 + CONVERT LOGICAL SECTOR NUMER TO A PHYSICAL SECTOR ATHUS 2090 Fe eet seep ee TOR ID 
1340 ik Serer poetical SECTOR # IN LOCATION 'LGSFC? te : : ° ee 
19a. # SECTOR # WILL BE LOADED IN LOCATION ‘"PHYSC! Ok ee: CRD TORS READ VERIFY 
LOGICA * ; 
1383 fF LocteR se ROOT ae OL. Ae Od 20, 08. 240 ON, 22, S096%, nn. ene mone 
1383 & RQSECALT X O8+ Fe O35: 05. Oa, OS. OF, OF, 08% 05% OAL OB, OC. OD, ca ages 
1985 * ’ , ° ’ ’ , O7, 08, O09, OA, OB, OC, OD, eeanae 4020 3C48 387A 2098 $SEEK MVA SKDCB,IO 
1986 ‘ LOGICAL” 7, 25, 08, 26, ee ee eee 3A7C 5064 2099 3 y167 DCB SET UP CONTROL BLOCK FOR SVC CALL 
1988 * -VEy ° ’ » 12, 13, 14, 15, 16, 17° 18% 19° 1A. 1B. OO3A7E 4020 3C48 383A 2 
1989 * LOGICAL” QE, 2C, OF, 2D, 10, 2F, It, 2Fe 32 ‘0 ie. “ ‘i = Apne Macrae 2192 Ce apes Oka ge Moe ate 
1E IF, 20 71 22 9 ’ ° ’ ’ e ’ * 
Veghs GOCTChis:. Aes 99. AGN. 49. Soe 48 a ie as ica 0O3A8C OBFF 5105 OO AVI ORTPRO ORS SET UP BIOCK FOR SVC CALL 
1883S ROGEGEAT Rs BBs MG: 38: 3s 38s 38 38 38s 33s 4b 98s 38s 34; a3ngs 4534 2660 Bie ange aeertacns SEE REEER a0ches 
, 31, 32% 33% 34% 355 36! 5407 ot a ' P READ SECTOR ID BUFFER 
1995 * LOGICAL- 1C, 3A, 1D, 3 i 003A96 2BAC 2108 SETUP BUFFER SDR 
19 * ’ Py 7 3B, X 003498 FFN r4 RS LENGTH 
iagg ¢ HOSESCHL | 36; 3B, Rs 3B ag3A38 829 3868 2660 3193 RVA Sch Rspcue 4 DATA ADDR 
x 
2111 * 
1999 * CALLING SEQUENCE OO3KA9 OBEE 2112 $ 
2000 * ; OO3AA2 6D08 38C8 5113 me aya XOPEOg R3 SETRD BUFFER TO ALL FS 
3091 BAL conYT Re BBG 7K 3168 ie eds EPBGBEI EET SET Gp READ, BUPEER abs 
3003 * OO3AAC 4020 EE FEN R3, (R5) BAD GURFER 
2003 * RETURN QO3AAC 4020 3C4B8 38BA $116 SRDS BVA  RDBCB-toDCE Cen UP LOCK FOR, 
2004 ¢  deesonses 2147 | 70 FLOCK FOR SVC CALL 
2006 * 0O3AB4 4020 3C48 38AA 2119 
5007 *eennens OO3ABA 50 SRDVY MVA  VRDCB,IODCB 
ae eer 3008 : TIttTTiTTrtttt ttt tt TrrTTr tT itt tt tT tet tert TT TTT tet eee rT eT ee es ananhG oe sey S164 . J xTo ” SET UP CONTROL BLOCK FOR SVC CALL 
ONY C 
903428 8038 38EA 3909 20.10 ae REROO. LGSECe 1 SEK POP LOG # ZERO O03AC2 5041 oon 3135 ae 7 WEDCE,TODCE SET UP CONTROL BLOCK FOR SVC CALL 
003430 80 JE TT3 ” 2124 * 
903430 8028 3909 390C 2012 CB LGSEC+1,CB29 Pol toe eg 36) co Q93ACu 4020 3C4B8 38DA 2125 SRKEW MVA_  RKDCB 
003438 4024 0002 501i var 3c RO. SCH TE TGSEC-EO OR LESS THAN CB29 OOsRce  BEDH 2660 a vB X'PP'GRS SET BUFFER TO Ftgeo s FOR SVC CALE 
003450 1802 003¢ AST: SWI LESEC +1 «FO LOG SECTOR # TIMES 2 OO3AD4 2BAC S466 NVET eeRT Senue READ SECTOR ID BUFFER ADRS 
003444 C028 3905 5019 Sat 80,80 Uae LOG SEC TIMES 2 MINUS 60 003AD6 4020 38E8 2660 2130 AVA B35, (R5) INIT READ SECTOR TD BOFPER 
OO3A4A 8028 390F 3908 3018 ona03 ava | Tees PETURN TO CALLER. peat ave 2131 J aaa DATA ADDR 
003A50 5008 so VE9,PHYSC+1 PHYSICAL SEC 00 a ee 
ee 20 TT304 TOR # 59 3ADE 4020 3C48 38CA 313 
D03k56 EB21 3909 2021 RTTO1 MVWI 2,RO RPTOPN TO CALLEP OO3AE4 4020 36D8 3918 513g eS AVA HSEDT aRDCB SET UP CONTROL BLOCK FO 
003456 2821 5032 A ae ts er D MULTIPLIER OO3AEA 502D 2134 WSIDT , WRDCB+ 14 DATA ADDR ee weeees 
OOSASE C028 3908 2023 SWI 1,R0 ° SUBTRACT ONE 2136 * ° he 
903462 6802 0000 3035 TT304 Be 6 BHLoce! TOAD PHYSTCAL SECTOR ¢ OO3AFD 4090 38B8 3948 Aaa ee aay  eeecesa Opes SET UP CONT 
2026 + RETURN TO CALLER OO3AF8 5026 $139 ro yao ee ee Bhth ADDR’ ee 
REKEKKESE ES 
3036 z HERE EERE EERE EEE KE ORE EE OR ER OE OE OE OE she Aaee 3C48 385A 5104 $RIDS MVA RSDCB,1I0OD 
* SUBROUTINE BFF ? e LODCB SET UP CO 
2030 * 003B02 4524 3015 5143 BVA. SCTST IRA SET BUFFER TO Pts OS CARE 
s331 Purpose gbaphe 4774 0006 | Bb eae Setup READ, SECTOR 1D urren nDRs 
2033 * 003B0C 4020 FFN = -R3, (RS TH 
2033 § LOAD WRITE SECTOR ID DATA RUFFER FROM RD SEC ID BUFFER O03B12 5019 5449 7 SchSt, hsocee 14 DATA ADDR 
003R14 40 gine s 
Soe amen 2149 SWKEW MVA = =WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CAI! 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBN CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO3BIA 4020 38D8 3910 2150 NVA -WRSID,.WKDCB+14 DAT 2266+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERAINE THE 
003B20 5012 5451 . oc mRPDR 2261+8 PROBLES THAT WAS FOUND WHEN THE T/O COMMAND WAS ISSUED BY THE 
Asean dacon Neae Ba 2152 ‘ 2268+% SUPERVISOR AND IT WAS WOT ACCFPTED. 

WSEC HVA WSDCR,IODCB SE 
003528 4920 3858 3910 2434 HVA  WRSID,WSDCBt14 DATA MObRO Se ey op ne a $35 0¢8 CALLING SEQUENCE 
J X10 
003B30 4020 3c48 384A 2156 $WSTS MVA  WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2272+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AW 1/0 COAMMAND 
003B36 4020 3858 391B 2157 MVA  WSIDT,WSDCB+14 DATA ADDR 2273+% 
003B3C 5004 2158 | X10 227h+s RETURN CONTROL 
QO3B3E 4020 3C4B 3822 2160 S$DIAG HVA  DGDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 2760 B (R6) * RETURN TO USERS ERROR HANDLER 
2162 XEQT? oe 227184 EE SEREREEEEREEEEEERREREE SEES EERE EEESEEEEEESEEESEEESEEERS b OGRE EEE EEES OSS 
21634 SEEKERS ESESEEKEKEEEEEAREE EEE EAE REREKERE SHEER EKEEEEEERE SESS EEEEEKIIG TOL 76S 2279+% 
21644 2280+* CC O= DEVICE NOT ATTACHED 
2165+* SUB-ROUTINE 2281¢* FOR 1= DEVICE BUSY 
steed CoM tt 
+ EXECUTE INPUT AND OUTPUT C = 
516848 ae pn SORnAnee 23 BU4* W= INTERVENTION REQUIRED 
2169+* PURPOSE 2285+ S= INTERFACE DATA CHECK 
2170+ 2286+* 6= CONTROLLER Y 
SiStS  BALETEGURS tHe GPLE°SBMERE FBOYoRSOMPRECHEOGE: He fe oe ae ena 
WING : 
ayaee geen clan gggptc 296 B2EssTIOBR Bc, 457OGE' SEE EG ee AL 
+ . SAVE THE ADDRESS THAT POINTS . 
2175¢4 THE I/O COMBAND- PIE ge Lager pore oe eee rere 003BBO C328 265A 22914 NVB  R3,SIOIN * PUT TN LOG OUT AREA 
2176+ * 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS GOSPBH: BDZ 0000 eens (6) * Reed ciae ck eke Caen oie 
2177+% ISSUED BY THIS SUBROUTINE. 229 NG EEEREEKEEKEEEKKEEEEKEKEKEERKKESEEKEREKREREEEEESEKEEEREESSESEESEEEES EEEESIUAPRTIA SS 
2178+% 3. CLEAR OUT THE CYCLE STEAL STATOS STORAGE UNLESS THE 229>+* TL 
Hoes uw, RESEES EGE rMEPRRODE INDY CATON AND CHECKS FOR AM Bee ee enon i 
: HECKS FOR AN 
21814* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 2298+4% ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* TL 
2182+% HYSTERY INTERRUPT (AT) CONTROL BIT TS, SET. 2299+% TL 
2183+% 5. MOVES THE ADDRESS OF THE 1/0 CONTROL BLOCK IN R7, SET THE 2300¢% PURPOSE IL 
21844* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'SVE START'. 2301+ TL 
51864* STARTS TO DETERMINE A LOST INTERRUPT. 2303+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
2187¢* 7. ACCEPT THF INTERRUPT AND GATHER INFORMATION TO DETERMINE IF TT 23044* EXPECTED CODE. TL 
2188+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2305+* Tl 
Sito: RECEP TUPRE Sa A TONG SEPRUPE UBT 1 alia rt 
: TED AND IF THERE WAS R , 
$191 10. CHECK IF THERE BAS AN ERROR COND TOTON oe cor pECuouee 2308+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 
2192+ 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 2309+* Il 
2193+% 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 2310+* RETURN CONTROL TL 
2194+% ISSUED BY THIS SUBROUTINE. 2311+* IL 
2195¢% 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 Ts ON, ISSUE A eee svc «EXIT RETURN TO USER VIA SUPVR uf 
7 es COUNT I? AND SET OP THE PROPER ERROR MESSAGE. TO BE PRINTED. \ Sea e ge ery tee eee ener renee eT ete ey ee ee Tey eae 
98+* + IL 
3199+* CALLING SEQUENCE 2316+* CC O= CONTROLLER END ISR O= ADD STATUS TL 
3300t% Ses Bs, EREREE Sermeeeageremoms Beas 1S oe eer, 
+* THIS ROUTINE HAS THE LOW gS: = = LENG? L 
Ae amet ety g3ae3 a> SeYice th? Eeappuue? toe je ee ceec Ce 
+* --> BAL XIO OR XE = = = 
SO0kGK SoS RAL S108 Ee BA Ga ORET OR SED EH toonohen 2321+% S= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 
2205+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 2322+% 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 
220¢* --> BAL — XTOCS“4,R6 AUTO CS STATUS (FOLLOWING OTHER XTO oaeace T= ATTENTION / DEVICE END INTR doa eee DER he 
+ * Pp 
55080% BN) ORS NOE Oot ARTERROES onan) 003BB8 706E 2325+INTER DC X*706E! COPY STATUS ANY LEVEL INTO R3 TL 
2209+* RETURN CONTROL OO3BBA 336A 2326+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
oe 003BCO 4ca8 5330s Bee, eer ene TS CS IN PROGRES TT 
+* BXS R6,2 RETURN TO USER NO ERROR = CS IN PRO S YY 
2212+* OR B ete RETUPN AND RETRY ON ERROR 003BC2 1006 2329¢ Sore tntés ZNO TL 
0194 OR OR IO CR Rai gi to igo sk doko $08 qk Sof a tO dk 0O3BC4 4C6A 2330+ TBTS (R4 ee) TURN ON CYCLE STEAL INTER ERRO IL 
003B46 CB25 3C4A 2215+XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP O03BC6 6FOD 2686 2331+ MVW =6-RI,CSTLB SAVE CS ERR ISB VALUE, BITS 0-7 TL 
OO3B4A 5OO0A 2216+ | J XTO1 CS I/O'S ARF NOT RETRIED OO3BCA C328 2687 2332+ AVE -R3,CSTIB+1 * AND THE COND CODE IL 
+ L 
O03B4UC 4CAA 55484 TBTR (RU.CE RESET CS STATUS ; 003BD0 4c24 2334+INTES TBT R4, XE) TEST EXPECTED ATTEN / ERROR IND IL 
OO3B4E 4C68 22194 TBTS traces} SET ICYCLE STHAL STATUS IN PROGRESS O03BD2 1002 2335+ JOrF ITED BCH IF NOT EXPECTED TL 
003B50 4020 3C48 388A 2220+XIOCS MVA SDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL O03BD4 F304 2336+ CBI 4 R3 IS THIS AN 'ATTENTION® INTR TL 
003B56 4020 3C4A O000F 2221+ MVWI X*OOOF', TOMOD SET CYCLE STEAL HODIFIER 003BD6 1006 2337+ JE TNTRI * YES, BCH TO_END INTR SEQUENCE TL 
003B5C 4C28B 55524 TBT (RY ,CS) TS CS IN PROGRESS, ERROR CONDITION 003BD8 4Cé61 2338+INTET TBTS (R4, ER) SET ERROR ON I/O COMMAND CNTL BIT IY 
O03B5E 1213 22234 JON Tos * YES, BYPASS SAVING I/O ADRS OO3BDA 5004 2339+ J wrk TL 
003B60 6E0D 265E 22244#XI01 MVW R6,LSTIO SAVE {AR POR RETRY IP REQUESTED 2340+% THE ERROR INTERRUPT USES THE SAME IL 
003B64 4324 2668 2225+ MVA DCBUF,P3 SET UP TO ADRS TO MOVE DCB TABLE Zon ite ENDING SEQUENCE AS THE NORMAL INTP IL 
pp anee 6D08 3c4u8 genet MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITR en eg Cee ret Coen er eyes ene re ee Ee 
+ MVBI 16,R * THE NUMBER OF MOVES * I] 
O03B6E 2D64 2228+ MVFN sro) (R3) MOVE 1 STATUS WORD AND ADJUST 23454* SOUBROUTINE TL 
003B70 OBFF 2229+ MVBI 255 8 CLEAR CYCLE STATUS BUFFER 2346+% TL 
003872 4524 2678 2230+ NVA CSBOF RS * TO ALL ONES * 234 14% OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! TL 
+ MVBI R * TL 
003B78 2BAC 2232+ FFN R39 (RS) * 2349+* PURPOSE TL 
003B7A 4020 265A 0708 2233+ MVWI x'6708",SIOIN OVERLAY OLD CONDITION CODES 2350+* TL 
003B80 CB25 265c 223u+ | MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE eae oes TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
: TL 
003B84 4CA1 2236+ TBTR (R4,ER RESET ANY ERROR BEFORE 1/0 COMMAND 2353+* CALLING SEQUENCE TL 
003B86 4CA3 22374+XI02 TBTR frupin CLEAR INTERRUPT RECEIVED CNTL RIT 23544* TL 
003B88 4724 3c44 2238+ MVA OBLK, 87 SET UP CONTROL BLOCK FOR SUPVR 2355+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
O003B8C 4CA6 55394 TBTR (R4, $LE) PRESET LEVEL ERROR INDICATOR 2356+% THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
OO3B8E 4C62 2240+ TBTS {ru XT) SET EXPECTED INTR CONTROL BIT 235]+* AFTER THE SPECTAL PART HAS BEEN COMPLETED AND THE TL 
003B90 600A 2241+ | SVC TART CALL SUPVR FOR 1/0 COMMAND 2338+ + COMMON SECTION YS HANDLED HERE. IL 
+ IL 
003B92 4CAT7 2243+ TBTR (R4,NI TS AN INTR EXPECTED 2360+* RETURN CONTROL TL 
003B94 6ACO 0002 2244+ BN {Res 3) * NO, RETURN TO USER 2361+* TL 
22u5+s athe 2362+% sVC EXIT RETURN TO USER VTA SUPVR TL 
+ 
apawae aoe 22474+* R SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION AOSEDE 106E 23GUt HKseRRseHSeH SENSE ESA ESSE AHEAESERES Lesa aeansaeee TESS SeseeseeTee AT] 
B D 22UB+ VBI X'OO'". RE SET UP WORK REG FOR "LOST INTR® +INTOK DC X' 706E® COPY STATUS ANY LEVEL INTO R3 TL 
OO3B9A 4CA3 22u9+xTO8 TRTIR (RY Th) HAS INTERRUPT BEEN RECEIVED OO3BDE 336A 2366+ SRL = 13, R3 POSITION INDICATORS IN R3 IL 
003B9C 1238 2250+ JON xX10CK * YES, CHECK IF ALL WAS SATISFACTORY OOSBEO baad 2652 2367+ NVA OPTN1 , RU SET UP_ BASE ADRS TL 
003B9E 6002 22514 SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO PUN OO3BER HC63 Z368+INTRI TRIS Fa, 2M) SET J NTERRUPT RECEIVED IL 
003BA0 7DA1 0001 2253+ AWI-1,R5 ADVANCE TIME OUT COONT OO3BEB 1204 23704 JON NTR2 * YES, BCH AROUND UPDATE TL 
OO3BAG 18FA 55a 5NZ  xto8 BCH IF TIME OUT WOT REACHED OO3BEA C328 265B 23714 MVB  R3,$IOIN+1 SAVE INTERRUPTING CC CODE TL 
003BA8 68D2 0000 2256+ R6{ * "NO INTERRUPT? OO3BF2 2373+INTR2 EQU * TL 
925 Ba EO IIS III IOI Oa Ga IOC iia) 3 F EB 64« 2374+* CPCL RS CURRENT LEVEL COPTED BY DCP IL 
55 254% 00O3BF2 3521 2375+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
2260+* SUBROUTINE OO3BF4 0501 2376+ ABT 1,R5 * IN 'I' BIT LT 
556148 O03BF6 CD24 268E 2377+ CW SINTL, RS IS THIS THE CORRECT INTR LEVEL TL 
2262+* I/O EXFCUTE ERROR HANDLING ROUTINE OO3BFA 1002 2378+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
SES? soszose gers Asai s240 ae EE (RESEEP Sar er ay a 
+ OMMAND CNTL BIT IL 
55enes 003C00 4ca2 23814INTR3 TBTR Ra XT WAS INTERROPT EXPECTED IL 
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003C02 1204 2382+ JON INTRX * YES, FXIT OFF THIS INTR LEVEL TL 2499+ EERREEEKEEKEEEEERAER EERE EER EERE AERA REAR ER EAE REE EERE HSE OES 
003CO4 4C60 2383+ TERTS Ae NT) * NO, SET MYSTERY INTR CONTROL BIT TL 003C8C 4020 1818 8000 2500+S$ERR$ AVWI X'8000!' ,TUSTATUS SET ON "NO GOOD STATUS BIT 
003C06 F304 23844 CBI R3 ATTENTION INTERRUPT? IL 003C92 4724 3DF6 2501+ HVA HEBLK, r4 GET ADRS OF CONTROL BLOCK 
003C08 1001 2385+ JE THTRX YES TL 003C96 601A 2502+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
OO3COA 4C6C 2386+ TBTS R4 ,NG) ERROR,UNEXPECTED TUNTERR OPT IL 003C98 ODO03 2503+$S$PRNT MAVBI 3,R5 
003C0C 6006 2387+INTRX SVC TT fHTS LEVEL VIA SUPVR TO PG& IL OO03C9A 4324 181A 2504+ MVA TOWORK R3 SET UP BUFFER STORAGE 
D3BO+ KERR EE REE RRR RE ERE EEE ERE ERK EREREEE SE HEEEEO RP EBT OSE 003C9E 6BOD 3DEE 2505+ aVH R3.BUFET 
2390+* ; Bache 4124 J3DIE 2506+ MVA LIfE1,R1 
23914* THIS IS THE CONTINUATION OF FXECUTF I/O AFTER THE INTERRUPT QO3CA6 OFOSY 2507+ MVBI 4,R7 
2392+ HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEFN Aoacee 0E08 2508+ MVBI 8,R6 
2393+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. OO3CAA 2B24 2509+HVBUF f&VFN (3). (R1) 
2394+ * OO3CAC OFOY 2510¢ MVBI rai 
23954* QOO3CAE OA4O 2591+ HVBI xX'4Ot RQ 
OO3COE 4cay 23964#XIOCK TBTR R4,XE) WAS AN ERROR EXPECTED 003CBO0 C258 2512+ MVB R2 geipe 
003C10 6ACO 0002 2397+ BN RE» 2) * YES, EXIT THIS ROUTINE 003CB2 BEFB 2513+ scr #VvBAUF,R6 
003C14 4CAB8 2398+ TBTR R4&,CS) WAS abro CS IN PROGRESS O0O03CB4 OQOEO8 soit MVBI 8,R6 
003C16 1006 2399+ JOFF XTotv * NO, CONTINUE CHECKING 003CB6 7921 002C 515+ AWI 64 >R1 
003C18 4C2A 2400+ TBT (Ra CE) ts CS IN AN ERR CONDITION OO3CBA BDF? 2218+ ICT MVBUF,RS 
003C1A 1002 24014 JOFF xroto * NO, BCH 003CBC 4020 1802 P1FO 17+ MVWI PIDMSG10, PID+2 
003C1C 68D2 0000 2402+ B R6) * CS ERROR eee 4020 19B8 3DF4& 2518+ MVA FAKETU ,@DCADD1 
003C20 4C69 2403+XIOCO TBTS R4,CSA) TORN ON CS STATS AVAIL FLAG 003cC8 4020 19BA 3DFO 2519+ MVA DC2PT SDCADD2 
003C22 5601 2404+ BXS R6,2 GO TO USER OO03CCE 402C 19C4 0080 2520+ OWI ° BITO080,SUPSTAT 
003C2&8 4C?1 2405+XIOCV TBT R4,ER) WAS FRROR INTR CONTROL BIT ON O0O03CD4 4324 2658 25214 MVA $TUID R3 SET UP BUFFER STORAGE 
003C26 100B Ae JOFF Totx * NO, EXIT THIS ROUTINE 003CD8 6F13 18BA $222, BAL TUMNSGWTR*,R7 GO TO MESSAGF WRITER 
+ 
003C28 C520 265B 2408+ HVB $IOTIN4+1,R5 GFT LAST YNTR CC CODE 0O03CDC 25244$CONX EeU * 
003C2C F502 2409+ CBI 2,R5 IS THIS cCc=2 003CDC C720 19D0 2525+ MVB DFVADD,R7 GET DEVICE ADDRESS FROM MDI 
OO03C2E 68D1 0000 2410+ BNE fhe) * * NO, BCH TO ERROR HANDLER OO3CEO 6013 2526+ svc RICB RELEASE INTERRUPT CONTROL BLOCK 
003C32 C520 265C 24414+XIOCO MVB ISB,R5 GET {Last ISR DATA BYTE AND IF CS OO3CE2 6812 2690 2527+ B TURTN* RETURN TO MDI SUPERVISOR 
003C36 6A00 3B4C 24124 BN xtoc§-4 * AVATLABLE, GO AND GET IT 2528+* 
003C3A 68D2 0000 2413+ B A) Bes ERROR 0O03CE6 0007 2529+*BEGIN DC A (0007 NUMBER ie pote TO PRINT 
Q003C3E CB25 2656 2414+ XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTIYON 3 CNTL BITS OO3CE8 0008 2530+ DC A(0008 LINE LENG = 8 CHAR 
003C42 5601 2415+ BXS (RE, 25 RETURN TO USER VIA REG 6 OO3CEA 5C5C40C1C2D6D9E3 2531+ DC C'** ABORT® 
24164+* OO03CF2 0028 2532+ DC A (0040) LINE LENGTH = &O CHAR 
24174+* T/o PAPAMETER LIST OO3CF4Y E3ZERCOCHLOCIODECID 2533+ DC C'TUID IOIN ISB INST DEV? DEV2 DEV3 DEVY ! 
2418+ 003D1C 0028 2534+ pc A (0040) LINE LENGTH = 4O CHAR 
003C44 19D0 24194+ITOBLK DC A (DEVADD) ADRS OF DEVICE ADRS OO03D1E 4OUOKOROKOKOKOHO4 25354LINE1 DC ce ' 
003C46 3BAC 2420+ DC A XIOER) ERROR ROUTINE ADRS 003D46 0028 2536+ Dc A (0040) LINE LENGTH = 4O CHAR 
003c48 0000 2421+IODCB DC A (*- DCB ADRS OR LEVEL & INTR 003D48 C3D5E3D340CK4C3C2F 2537+ pc C'CNTL DCB2 DCB3 DCBY DCBS CHAD BYCT ADRS ! 
OO3CHA 0000 2422+IOMOD DC A oe MODIFIER 003D70 0028 2538+ Dc A (0040) LINE LENGTH = &O CHAR 
003C4HC 0000 2423+ DC A (*-* ADRS OF LAST SVC CALL 003D72 4O4OKOKOKOKOUO4O4 2539+LINE2 DC cf e 
OO3C4E 0000 24244+IORSP DC A (*-* SECOND WORD OF LAST IDCB OO03D9A 0028 2540+ DC A (0040) LINE LENGTH = 4O CHAR 
2425+* 003D9C DIYEZCICKHYOC3ZSE2Z60F 2541+ pc C'PSTD CS-2 CS-3 CS-4& CS-5 CS-6 CS-7 CS-8 ! 
2426+4+* INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 003DC4 0028 2542+ DC A (0040) LINE LENGTH = 4&O CHAR 
24274+% 003DC6 Y4OUOKOFOEOSOGOSOS 25434+LINE3 DC ct ' 
003c50 19D0 Z428+INTBL DC A(DEFVADD) ADRS OF DEVICF ADRS 2544+4% 
003C52 3BDC 2429+ DC A (INTOK TNTEPRUPT OK RETURN ADRS OO3DEE 0000 2545+BOUFPT DC A aE 
003C54 3BB8 2430+ DC A INTER INTFPRRUPT ERROR ADRS OO03DFO 3CE6 2546+DC2PT DC A (BEGIN) 
003C56 0003 24314#INTCC DC X*0003! INTERPUPT CODE EXPECTED OO3DF2 0101 25474+FIXTO DC X¥'01017! 
Fes qr ance hes cekaweeesecs BOR ROR ROR Rito a cok Raiio iit x ek 4 408K 1 1 MAY 7 6% * OO3DF4 0101 92548+FAKETU pc x'0101! 
24344% O0OF1FO 2549+PIDMSG10 EOU X'FTFO?t 
eae SUBROUTINE 000080 secu EQU x*0080°8 
+ 
raid CONNECT INTFRROUPT CONTROL BLOCK & PFPFEPARE DEVICE 2223¢ 5 DATA CONTROL BLOCK FOR CONVFRTING HEX TO FPCDIC 
+ + 
2439+* PURPOSE 003DF6 0030 25544+HEBLK DC NUMBER OF BYTFS TO CONVERT 
2440+* OO03DF8 2658 2555+ Dc A {st br0) FROM ADRS 
2441+% TO CONNECT THE INTERRUPT CONTPOL BLOCK TO THIS DEVICE AND OO3DFA 181A 2556+ DC 4 TU AND THF TO ADP 
24424+% PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICF ZAI Stet eee MSA SE EASE LESS CS HR OR RRR RR RR a to Ok Breen eee TIS EDTS¢# 
2443+* TO INTEPRUPT. 25594 * 
24444 * 2560+* SUBROUTINE 
2445+* CALLING SEQUENCE 2561+* 
2446+* 2562+ * SPECIAL ERROR CHECKING OF THF DCB 
2447+ THIS SUBROUTINE HAS THE FOLLOWING FNTRIES: 2563+* 
2448+% 2564+* PURPOSE 
24494*% --> BAL S$CONC ,R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 2565+* 
2450+* --> BAL SCONP, "RG PREPAPE DEVICE ONLY, ALREADY CONNECT 2566+4+* TO SET THE CONTROL BITS BEFORE ISSUEING THE WAS COMMAND 
54514 2567+* TESTING TO VERIFY THAT THE ERROR DID OCCUR, AND VERTFYING 
Ne RETURN CONTROL 268tS THAT THE RESIDUAL ADDRESS IS WHAT IT SHOULD a 
+ 
24544+* BXS R6,2) RETURN TO USER VIA PREG 6 IF OKAY 2570+* CALLING SEQUENCE 
2455+* OR B R6{ * IF THE DEVICE COULD NOT BE CONNECT FD 2571+* 
54564* 2572+* --> BAL  ERTST,R2 USE COMMOM ERROR TEST SUBRTN 
9 0574 OIG IO IO IOIIOIOR IOI IIO OR ROR IOI I OIG I OI i ak 2573+* pc A (1) DISPLACFMENT FOR RESIDUAL ADRS 
003C58 OF06 2458+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 2574+* DC A (#-*) FRROR ADDRFSS 
003C5A 0BO00 2459+4 MVBI 0,R3 * AND THF DATA TO SE 2575+% 
003C5C 4524 2660 2460+ MVA  DEV1,R5 * ALONG WITH THE ADRS TO USE 2576+* RETURN CONTROL 
003C60 2BAC 2U61+ FFN R3 (e5) * 2577+% 
003C62 CB25 2656 2462+ MVWZ opt 3,83 CLEAR OID CONTROLS FOR NEW ROUTINE 2578+* BXS (R2,6) RETURN TO USER VTA REG 2 
003C66 4724 3C50 2463+ MVA INTBL,R7? SET R7V TO CONTROL BLOCK AND 2579+* 
QOO3C6A 6014 2464+ SVC CICB * CONNECT YT TO THIS DEVICE MANNIE LES ICS CSS CSTE SSS TSS SCS LS CE CSCS PS CC TPT TT SPST Se TTT SPP SC Le ST STS eS Te Tse Te 
003C6C 6AD0O 0000 2465+ BN (R6) * ERROR RETUPN TO USER OO3DFC 4C64 2581+ERTST TBTS {Pi ne) SET EXPECTED EPROR FOR EACH FAULT 
2466+ * OO3DFE 6£E03 0000 2582+ PAL GO XEOQ I/O COMMAND 
003C70 8828 268E 3C4&8 24674+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 003E02 3C8C 2583+ DC A (SERRS) RETRY 
003C76 4724 3C44 2468+ MVA TOBLK,R&7 SET R7 TO CONTPOL BLOCK TO PREPARF OO03E04 4C21 2584+ TBT ER) D¥D ERROR CONTROL BIT GET SET 
O03C7A 4020 265A 0708 2469+ MVWI xX'0708",£TOIN INTTIALIZE CONDITION CODE STORAGE 003E06 1202 2585+ JON Resy * YES,GO CKECK RESIDUAL ADDRESS 
003C80 CB25 265C 2470+ MVWZ2 SISB,R3 * AND CIFAR OLD ISB VALUE 003508 6852 0002 2586+ B (R2,2)* ERROR 
003C84 6E0OD 265E 2471+ MVW R6 L§TTO SET UP ADDRESS THAT STARTED LAST T/0 2587+* 
003c88 600C 2472+ ave PREP * AND CALL ON SUPVR OO3EOC AAO8B 3C48 2588+ERTSV AW (R2) , TODCB DEVELOP DCB ERROR ADDRESS 
003C8A 5601 2473+ BX {Re 2) PETURN TO USER 003E10 5000 2589+ NOP P FOR ALL ARCH ADD (SWI 1,IODCB) 
sh Tet eaeeaaen eee 4 ao RIO io goo aki dctottoiotok ta 06 A PR 7 6 003E12 5000 2590+ NOP ; * (402E (ADD OF TODCB) 6001 
2476+ * O0O03E14 5000 2591+ NOP * 
2477+* SUBROUTINE OO3E16 8828 3C48 3E3A 2592+ MVW fopcB ERTSZ SAVE DCR ADDRESS 
24 784% OO3E1C 4CA1 2593+ TBTR (RG,FR PESET EPROP BIT 
2479+ * DISCONNFCT THE INTFRRUPT CONTROL BLOCK AND LOG ERPORS OO3EITE 6EF03 3B4C 2594+ BAL to¢és- REQUEST START CYCLE STEAL STANTS 
2480+ * 003E22 3c8c 2595+ DC R(SERRS{ RETRY 
24814+* PURPOSE O0O03E24 4C21 2596+ TBT ‘ne ER) DID ERROR CONTPOL BIT GET SET 
2482+ * 003E26 6A00 3C8C 2597+ BON ERR$ YES-ERROR 
2483+4+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND) OO3E2A 882B 2678 3E3A 2598+ CW Sees a ERTSZ TEST FOR CORRFCT RESIDUAL ADDPS 
24844* SET THE 'NO GOOD CONTROL BIT, THEN LOG THE DATA THAT HAS 003E30 1002 2599+ JE ERTS RESIDUAL ADDRESS OK 
2485+ * BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 003E32 6852 0002 2600+ P Ro 3) * FRROR 
248E€+* 003E36 4CA8 2601+ERTSX MTBTR R4,CS) RESET CS IN PROGRESS CNTL BIT 
Sn eare CALLING SEQUENCE 003E38 5202 cae BXS R2,4) OK, RFTORN TO CALLER 
+ + 
2489+* THIS SUBROUTINE FAS THE FOLIOWING ENTRIES: OO3E3A 0000 2604+ERTSZ DC A (*-* DCB SAVE LOCATION 
2490+* 000000 2605 END ( 
24914+* --> B FEPRS SFT "NGS BIT AND CONVERT DATA TO LOG 
es --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
+ 
24944* RETURN CONTROL 
2495+* 
24964+* B TORTN* RETURN TO MDI 
a OR B (R6) * TF THE DEVICE COUVLY NOT BE CONNECTED 
+ 
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DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND PEFERENCES 
950 $C KSK ADDRESS. HEX LOCATION (00002938) IN CSECT (17801 ) LENGTH (6) 456 ENTPT A aa HEX LOCATION (000025F4) IN CSECT (17801 ) LENGTH (1) 
2458 $CONC ADDRESS. HEX LOCATION (00003C58) IN CSECT(I7801 ) LENGTH(2) 50 EQ ABSOLUTE. HEX aad (eae gee 
761 1013. 1170 1287 363. 3810 = 399) 4d?) 435 
2467 $CONP ADDRESS. HEX LOCATION (00003C70) IN CSECT(T7801 ) LENGTH(6) 539 ER ABSOLUTE. HEX VALUE (00000021) 
796 804 826 837 847 861 876 882 897 1427 
2524 SCONX ADDRESS. HEX LOCATION(00003CDC) IN CSECT(T7801 ) LENGTH(1) 2236 92255 = —2338 ) =©2380) 62405) =62584 =62593 ) =—2596 
914 1095 1230 1518 2581 ERTST ADDRESS. HEX LOCATION (O00003DFC) IN CSECT (I7801 L LENGTH (2) 
2160 $DIAG ADDRESS. HEX LOCATION(00003B3E) IN CSECT(I7801 ) LENGTH(6) 1023) 1024 =1032 1033 1039 1040 1047 1048 1056 
1047 1074 1057 1065 1066 1074 $1075 1084 1085 
2500 $ERR$ jAQDRESS. HEX LOCATION (00003C6C} IN CSECT(I7801  ) LENGTH(6) 2588 ERTSV ADDRESS. HEX LOCATION(Q0003E0C) IN CSECT(I7801 ) LENGTH(4) 
589 $INTL BDDEE SS. HEX LOCATION (opoo2eer) 1m CSECT (17801 ) LENGTH (2) 2601 ERTSX Oy aap HEX LOCATION (00003E36) IN CSECT(I7801 ) LENGTH (2) 
559 SIOIN ADDRESS. HEX LOCATION (00002658) IN CSECT(I7801 __) LFNGTH(2) 2604 ERTSZ ADDRESS. HEX LOCATION (O0003E3A) IN CSECT(I7801 ) LENGTH(2) 
863 884 899 905 1221 1509 1921 2233 2291 2592 2598 
2371 2408 2469 614 EXIT ABSOLUTE. HEX VALUE (00000006) . 
560 SISB ADDRESS. HEX LOCATION (0000265C) IN CSECT(I7801 _) LENGTH (2) 2387 
5896 3308 3828 388? 886 01 906 1222 1510 2548 FAKETU >ADDRESS. HEX LOCATION (O00003DF4) IN CSECT(I7801 ) LENGTH (2) 
544 $LE ABSOLUTE. HEX VALUE (00000026) 1790 PIVES ADDRESS. HEX LOCATION(0000390E) IN CSECT(I7801 ) LENGTH (2) 
2112 $RD ADDRESS « HEX LOCATION (00003AA0) IN CSECT(I7801  ) LENGTH(2) 475 F00009 ADDRESS. HEX LOCATION(OOO025FA) IN CSECT(I7801 ) LENGTH(1) 
2116 $RD$ Bear TP oie vst ek To aces ata IN CSECT (17801 ) LENGTH (6) 479 FO0015 AB oes HEX LOCATION (00002600) IN CSECT(I7801 ) LENGTH (1) 
2104 $RDID {AODRESS. HEX LOCATION (00003A86) IN CSECT(1I7801 ) LENGTH (6) 483 F00022 Agree HEX LOCATION (00002606) IN CSECT(1I7801 ) LENGTH (1) 
2098 $SEEK ADDRESS. HEX LOCATION (00003A76) IN CSECT(I7801 ) LENGTH (6) 487 F00029 oe eee HEX LOCATION (0000260C) IN CSECT (17801 ) LENGTH (1) 
558 $TUID ADDRESS. HEX BOCATION (00002658) IN CSECT(17801 ) LENGTH (2) 491 F00036 ADDRESS. HEX LOCATION (00002612) IN CSECT (17801 ) LENGTP (1) 
599-757 ~=-1011) «©1168 +) =1285 «©2521 2555 445 
2122 $WRT )LDDRESS. HEX LOCATION(OOOO3ABC) IN CSECT (17801 ) LENGTH(6) 495 F00039 Te ea HEX LOCATION (00002618) IN CSECT(1I7801 ) LENGTH (1) 
45 @CALL ABSOLUTE. HEX VALUE (00000201) 2554 HEBLK ADDRESS. HEX LOCATION (O0003DF6) IN CSECT(I7801 ) LENGTH(2) 
rm 

105 @DCADD1 ADDRESS. HEX LOCATION (000019B8) IN CSECT(T7801  ) LENGTH(1) 634 HTOE Fe aad HEX VALUE (0000001A) 

106 @DCADD2 ohRDRESS. HEX LOCATION (000019BA) IN CSECT (17801 ) LENGTH (1) 1929 IDCBCE1 jnget ecg. LOCATION (OO0039F4) IN CSECT (17801 ) LENGTH (2) 
44 @GOTO ABSOLUTE. HEX VALUE (00000200) 1931 IDCBCE2 aBDRESS. HEX LOCATION (000039F8) IN CSECT(I7801 ) LENGTH(2) 
48 ATUXX ABSOLUTE. HEX VALUE (00000500) 19 33 IDCBRAP ADDRESS. HEX LOCATION(000C39FC) IN CSECT(I7801 ) LENGTH(2) 

360 378 396 414 432 1889 1890 
1781 BCNT (hue Ghee sana eon week aan CSECT (17801 ) LENGTH (2) 1925 IDCBO SOht eae LOCATION (OOOO39EC) IN CSECT(I7801 ) LENGTH (2) 
2529 BEGIN ADRESS. HEX LOCATION (00003CE6) IN CSECT(I7801  ) LENGTH(2) 1927 IDCB1 (poe acoe ete ee IN CSECT(I7801 ) LENGTH (2) 
2550 BITO0080 > ABSOLUTE. HEX VALUE (00000080) oe ane Thee tht BED on coe ee Oneg0e2) 
2545 BUFPT ADDRESS. HEX LOCATION(00003DEE) IN CSECT(I7801 LENGT 341 IN ABSOLUTE. HEX VALUE (00000023 

2505 ( { ) Ree) 460 1501 1529 3047 2249 ) 0368 

518 B59 jacgor eee HEX VALUE (00000018) 2428 INTBL ADDRESS. HEX LOCATION (00003C50) IN CSECT (17801 ) LENGTH (2) 

519 B60 caper ete: HEX VALUE (0000001C) 2325 INTER ADDRESS. HEX LOCATION (O00003RBB8) IN CSECT(I7801 ) LENGTH (2) 

520 B61 ABSOLUTE. HEX VALUE (0000001D) 2334 INTES ADDRESS. HEX LOCATION (00003BD0) IN CSECT(I7801 ) LENGTH(2) 

1789 CB29 ADDRESS. HEX LOCATION (0000390C) IN CSECT(I7801 ) LENGTH (2) 2338 INTET ROR HEX LOCATION (00003808) TH -CSECT (T7803, -:). LENGTH (2) 
1919 CCERR iABBRESS, HEX LOCATION (000039DE) IN CSECT(I7801  ) LENGTH(2) 2365 INTOK a ADDRESS. HEX LOCATION (00003BDC) IN CSECT(I7801 ) LENGTH (2) 
548 CE oABSOLOTE. HEX VALUE (0000002a) 2387 INTRX ADDRESS. HEX LOCATION (00003C0OC) IN CSECT(I7801 ) LENGTH (2) 
1930 CEDAT ADDRESS. HEX LOCATION(000039F6) IN CSECT (17801 ) LENGTH (2) 2368 INTR1 ADDRESS. HEX LOCATION (OO003BE4) IN CSECT(I7801 ) LENGTH (2) 
798 820 1016 1182 1491 1193 1198 1201 120¢ 2333 2337 233 
1442 1475 1478 2373 INTR2 ADDRESS. HEX LOCATION(00003BF2) IN CSECT(I7801 ) LENGTH(1) 
1932 CEDAT2 ADDRESS. HEX LOCATION (000039 FA) IN CSECT(I7801 ) LENGTH(2) 2370 
1224 W445 1463 1481 1496 151 1525 1571 2381 INTR3 ADDRESS. HEX LOCATION (00003C00) IN CSECT(1I7801 ) LENGTH (2) 
1894 CEOP1 ADDRESS. HEX LOCATION (00003982) IN CSECT(I7801 LENGTH (4) 2378 
799 °821 1017 1183 1194 1202 1443 1076 9 2419 IOBLK ADDRESS. HEX_LOCATION(00003C44) IN CSECT(I7801 ) LENGTH (2) 
1900 CEOP2 ADDRESS. HEX LOCATE OR (00003942) IN CSECT(I7801 ) LENGTH(4) 7177 783 785) = 911) 1092) «1180 «61227 61313) 1466 
1225 1486 1464 1482 14697 151 1526 1572 1515 1574 2238 2468 
953 CHSK ADDRESS. HEX LOCATION(00002942) IN CSECT(I7801 ) LENGTH(2) 2421 TODCB ADDRESS. HEX Pee THe ca IN CSECT (17801 La PENGTE (2I 
950 950 2098 2101 2104 2116 2919 2122 2125 2133 
628 CICB > ABSOLUTE. HEX VALUE (00000014) 2437 214) 2149 2153 2156 2160 2220 2226 2467 
1658 CLDCB > ADDRESS. HEX LOCATION (0000383A) IN CSECT(I7801 ) LENGTH (2) 2422 IONOD Foes e Gg yao oade  ooea IN CSECT(I7801 ) LENGTH (2) 
1935 CPUID ABSOLUTE. HEX VALUE (00000232) 795 ITST1 ADDRESS. HEX LOCATION (00002730 Po CSECT(I7801 ) LENGTH(§) 
546 cs ABSOLUTE. HEY VALUE (90090028) 781 ITst5 ADDRESS. HEX LOCATION (00002700) IN CSECT(I7801 ) LENGTH (2) 
2219 2222 2328 2369 2398 2601 7182 
547 CSA ABSOLUTE. HEX VALUE (00000029) 40 17801 Cake START (00002500) LENGTH (6460) ESDID(1) 
577 CSBUF ADDRESS. HEX LOCATION (00002678) IN CSECT(I7801 ) LENGTH(1) 1782 JOE MOD R ESS, HEX LOCATION (OOOQ38FE) IN CSECT(T7G01 ||) LENGTH (2) 
867 892 910 1715 2230 1439 81441 1449 1450 1494 15464 1545 1546 1547 
1708 CSDCB ADDRESS. HEX LOCATION (0000388A) IN CSECT (17801 1 LENGTH (2) 1565 1568 1569 1576 1579 1580 1581 1582 
819 843 849 851 853 57 867. 871 #4878 1787 LGSEC ADDRESS. HEX LOCATION (00003908) IN CSECT(I7801 ) LENGTH(2) 
888 891 892 893 909 910 2220 2010 2012 2015 2022 
578 CSTL1 ADDRESS. HEE LOCATION (00002678) IW CSECT(I7801 ) LENGTH(2) 2535 LINE1 ohBDRESS. HEX LOCATION (QOO003D1E) IN CSECT(I7801 ) LENGTH(4O) 
579 CSTL2 ADDRESS. HEX LOCATION(0000267A) IH CSECT (17801 LENGTH (2 561 LSTIO ADDRESS. HEX LOCATION (0000265E) IN CSECT (17801 LENGTH (2 
810 904 1220 1629. 1508 ( (4) 1888 1894 1900 1907 | 1913 er 2471 el 

581 CSTL4 ADDRESS. HEX LOCATION (0000267E) IN CSECT(I7801 ) LENGTH(2) 938 NT ge rsoLure: HEX VALUE (00000020) 

585 CSTL8 ADDRESS. HEX LOCATION (00002686) IN CSECT(I7801 ) LENGTH(2) 2509 NVBUF hQBREss, AEX LOCATION (OOOO3CAA) IN CSECT(I7801 ) LENGTH (2) 

567 DCBUF 2 ABBRESS. HEX LOCATION (00002668) IW CSECT(I7801 ) LENGTH(1) 950 NG Sue HEX VALUE (0000002c) 

2546 DC2PTr >ABDRESS. HEX LOCATION (O0003DF0) IN CSECT(I7801 ) LENGTH(2) S45 NI jpeg OL ures Meo ase 
108 DEVADD ADDRESS. HEX LOCATION (0000190) IN CSECT(I7801  ) LENGTH(1) 360 N00001 ADDRESS. HEX LOCATION (00002530) IN CSECT(I7801 ) LENGTH (2) 
592 808 1295 1889 1895 1901 1908 1914 2419 318 466 
2428 2525 372 N00002 ADDRESS. HEX LOCATION (0000254A) IN CSECT(I7801 ) LENGTH (2) 
562 DEV1 ADDRESS. HEX LOCATION (00002660) IN CSECT(I7801 ) LENGTH(2) 321 
566 2860 378 N00003 ADDRESS. HEX LOCATION (00002556) IW CSECT(I7801 ) LENGTH(2) 
1646 DGDCB ADDRESS. HEX LOCATION (0000382A) IN CSECT(¥7801 ) LEWGTH(2) 324 361 
1084 1045 1071 1072 1078 1088 2160 390 N00004 ADDRESS. HEX LOCATION (00002568) IN CSECT(T7801 ) LENGTH (2) 
70 DUANY ABSOLUTE. HEX VALUE (00000000) 327 
351 +455 467 396 N00005 ADDRESS. HEX LOCATION (00002574) IN CSECT(I7801 ) LENGTH(2) 











T7801 --- CHANNEL/4962 P/N=1635136 EC=374888 PAGF 13 17801 --- CHANNEL/4962 P/N=1635136 FEC=374888 PAGF 134 
CROSS-REFERENCE LISTING COPYRIGHT TBM CORP 1976 CROSS-REFERENCF LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
408 00006 a aT : oo £60 P86 ato a OOOO aS 911 1010 1092 1167 
N ADDRESS. HEX LOCATION(0000258EF) IN CSECT (T7801 LENGTH (2 
ae) ae pean ar ere 02 13a 13851382 1382 1389 hee 1308 3d 
N 0 ADDRESS. HEX LOCATION(0000259A) IN CSECT (17801 LENGTH (2 
ee ieee. ibe ren oe penne 1359 1398 13s8 1347 Vuod 1483 aos Taoy tans 
N ADDRESS. HEX LOCATION(000025B4) IN CSECT(T7801 LFNG 
i ane | } See guia Ban AONE, eats Aner Agee 1uey, dkee: ie? 
N ADDRESS. HEX LOCATION (000025C0) IN CSECT(I7801 LENGTH (2 1 
342 ( ( ) (2) 1965 2046 2107 2114 =%2128 2144 2227 2231 2238 
rater, N00010 ADDRESS. HEX LOCATION (000025DA) IN CSECT (17801 ) LENGTH (2) ee: 2372 2458 2463 2468 2501 2507 2510 2522 
450 N00011 ADDRESS. HFX LOCATION (00002556) IN CSECT (17801 ) LENGTH (2) 366 SCTID ADDRESS. HEX LOCATION (00002660) IN CSECT (17801 ) LENGTH (2) 
348 433 1680 1692 1770 1966 2047 2106 2109 2127 2130 
503 OPTN1 ADDRESS. HEX LOCATION (00092652) IN CSECT(I7801 ) LENGTH (2) 1798 SCTST ADDRESS. HEX LOCATION (O0O00391E) IN CSECT (17801 ) LENGTH (2) 
758 1012 1169 1286 2327 2367 1962) 2138 2143 2146 
526 OPTN3 BOO Eee ee gro 000 Zee) IN CSECT (17801 ) LENGTH (2) 1913 SENSO jaoecee HEX LOCATION (QO00039CA) IN CSECT(1I7801 ) LENGTH (4) 
104 PARMARA ADDRESS. HEX LOCATION(0000196E) IN CSECT(I7801 ) LENGTH(1) 1697 SK DCB ADDRESS. _ HEX pene eae eg IN CSECT (17801 ) LENGTH (2) 
370 388 406 42y uu2 816 817 818 819 830 33 958 2098 
1788 PHYSC ADDRESS. HEX COCRTEON (00003900) IN CSECT(I7801 ) LENGTH (2) 618 START ei HEX VALUE (0000000A) 
72 PID ADDRESS. HEX LOCATION(00001800) IN CSECT(I7801 ) LENGTH (1) 107 SUPSTAT ADDRESS. HEX LOCATION (000019C4) IN CSECT (17801 ) LENGTH (1) 
74 75 76 77 78 79 80 81 82 2520 
83 84 85 86 87 88 89 90 94 1600 TEST ADDRESS. HEX LOCATION(OOOO2FFE) IN CSECT(I7801 ) ITENGTH(?) 
92 93 94 95 96 97 98 99 100 1312 1315 1473 1503 1520 
104 102 103 104 105 196 197 108 109 1473 TT TF jean HEX LOCATION (00002E38) IN CSECT (17801 ) LENGTH (A) 
114 11 2517 
2549 PIDMSG10 ABSOLUTE. HEX VALUE (0000F1FO) 1471 TTTT i ca HEX LOCATION (QOOO2E34) IN CSECT (T7801 ) LENGTH (2) 
6 20 PREP ABSOLUTE. HEX VALUE (0000000C) 1304 TTO7 on HEX LOCATION (OOOO2BCC) IN CSECT (17801 ) LENGTH (6) 
1934 RAPDAT {ABORESS, HEX LOCATION (000039 FE) IN CSECT (17801 ) LENGTH (2) 2019 TT 303 ADDRESS. HEX LOCATION (OOOO3A4A) IN CSECT (17801 ) LENGTH (6) 
1926 RDATAO LBDRESS. HEX LOCATION (O00039EF) IN CSECT(I7801 ) LENGTH(2) 2025 TT 304 Bog Obie tse ee IN CSECT(1I7801 ) LENGTH (4) 
16 32 RDBUF jAQORESS, (HEX LOCATION (0000342a) IN CSECT(I7801 ) LENGTH(1) 1968 TT4Y Fr a HEX LOCATION (QOOOO3ATA) IN CSECT (17801 ) LENGTH (2) 
1741 RDDCB ADDRESS. HEX LOCATION(000038BA) IN CSECT (17801 \ LENGTH (2) 1456 TT7A ADDRESS. HEX LOCATION (00002E06) IN CSECT(I7801 ) LENGTH (4) 
1021 1028 1029 1030 1052 1053 1054 1080 1081 1299 = 1304 
1082 1089: 1090 1311 1484 485 £1486 1487 1488 1470 TT7B ADDRESS. HEX LOCATION(00002E30) IN CSECT (17801 ) LENGTH (4) 
1552 1559 2113 2116 1300) =61305 
616 RESET ABSOLUTE. HEY VALUE (90000008) 1492 LEIC ADDRESS. HEX LOCATION(OOOO2E8A) IN CSECT(I7801 ) LENGTH (4) 
779 784 912 1093 1181 1228 1314 1467 1516 1301 1306 
1575 1528 TT 7D ADDRESS. HEX LOCATION(O00002FOC) IN CSECT(1I7801 ) LENGTH (4) 
627 RICB ABSOLUTE. HEX VALUE(00000013) 1302 1307 
2526 1309 TTTE ADDRESS. HEX LOCATION(00002BE6) IN CSECT(1I7801 ) LENGTH (6) 
617 RID ABSOLUTE. HEX VALUE (00000009) 1303 
787 1341 TT 7G ADDRESS. HEX LOCATION (00002C64) IN CSECT (17801 ) LENGTH(4) 
1763 RKDCB ADDRESS. HEX LOCATION(O00038DA) IN CSECT(I7801 ) LENGTH (2) 1342 
2125 2130 2137 42138 1346 TT 7H ADDRESS. HEX LOCATION (00002C76) IN CSECT(I7801 ) LENGTH (4) 
1673 RSDCB ADDRESS. HEX LOCATION(0000385A) IN CSECT (17801 ) LENGTH (2) 1347 
1037 1061 1062 1063 1069 2104 2109 «2181 «22146 1351 TT7J ADDRESS. HEX LOCATION (00002C88) IN CSECT (17801 ) LENGTH (4) 
2021 RTTO1 ADDRESS. HEX LOCATION (00003A52) IN CSECT (T7801 ) LENGTH (4) 135 
2013 1356 TT 7K ADDRESS. HEX LOCATION(00002C9A) IN CSECT (17801 ) LENGTH (4) 
0 RO REGISTER. HEX VALUE (00000000) 1357 
770 771 780 782 84 842 851 855 868 1361 TT7L ADDRESS. HEX LOCATION (OOOO02CAC) IN CSECT (T7801 ) LENGTH (4) 
869 1020 1098 1100 1102 1104 1106 1108 1110 1362 
1112 14114 1296 1297 1320 1323 #1328 +1331 #1333 1366 TT 7M ADDRESS. HEX LOCATION (OOOO2CBF) IN CSECT (T7801 ) LENGTH (4) 
1336 1456 14662 1470 1472 1892 1493 1828 1531 1367 
20186 2015 2016 2017 2021 2022 2023 2024 1371 TT IN ADDRESS. HEX LOCATION (00002CD0) IN CSECT(I7801 ) I FNGTH(4) 
0 R1 REGISTER. HEX VALUE (0000000) 137 
8 33 839 849 1200 1201 1208 1321 1323 1329 1376 TT7P ADDRESS. HEX LOCATION(00002CE2) IN CSECT(1I7801 ) LENGTH (4) 
1331 1334 1336 1339 1341 1344 1346 1349 1351 137 
1354 1356 1359 1361 #1368 1366 #1369 1371 «1374 1381 TT7Q ADDRESS. HEX LOCATION (OO0O02CF4) IN CSECT(I7801 ) LENGTH (4) 
1376 1379 1381 1384 1386 1389 1391 1394 1396 1382 
1399 140% 1404 1806 #14609 «#1411 #21414 «21616~=«214619 1386 TT7R ADDRESS. HEX LOCATION(00002D06) IN CSECT(Y¥7801 ) LENGTH (4) 
1421 1544 1548 1554 1561 1579 1583 1585 2506 1387 
2509 2512 25145 1391 TT7S ADDRESS. HEX LOCATION (00002D18) IN CSECT (17801 ) LENGTH (4) 
0 R2 REGISTER. HEX VALUE (00009002) 1392 
163 764 765 766 767. 768 169 917 919 1396 TT7T ADDRESS. HEX LOCATION (00002D2A) IN CSECT(I7801 ) LENGTH (4) 
921 923 925 927 929 931 933 935 937 1397 
939 941 942 943 944 945 946 947 1019 1401 TT VU ADDRESS. HEX LOCATION (00002D3C) IN CSECT (37801 ) LENGTH (4) 
1024 1033 1040 1048 1057 1066 1075 1085 1173 1402 
1174 1175 1176 1177 «21178 «9211 «1213«01215«~=«#«1217 1406 TT7V ADDRESS. HEX LOCATION (QOOO2D4UE) IN CSECT(I7801 ) LENGTH (4) 
1218 1219 1290 1291 1292 1293 1294 1546 1548 1407 
1551 1553 1560 1581 1583 1591 1592 1593 1594 1411 TT7W ADDRESS. HEX LOCATION (00002D60) IN CSECT (17801 ) LENGTH (4) 
1595 1596 1597 2511 2512 2586 2588 2600 2602 1412 
0 R3 REGISTER. HEX VALGE (00000003) 1416 TT 7X ADDRESS. HEX LOCATION(00002D72) IN CSECT (17801 ) LENGTH (4) 
1536 1537 1542 1550 1551 1555 1556 1556 1557 1417 
1562 1563 1920 1921 1962 1966 1968 2047 2049 1421 TT7Y ADDRESS. HEX LOCATION (O00002D84) IN CSECT(I7801 ) LENGTH (4) 
2105 2108 2412 2115 2126 2129 2142 2145 2215 1422 
2225 2228 2229 2232 2234 2296 2291 2326 2332 98 TUBUFF ADDRESS. HEX LOCATION(000018C2) IN CSECT (17801 ) LFNGTH(1) 
2336 2366 2371 2384 2414 2459 2461 2462 2470 843 1089 
2508 2505 2509 2521 99 TULAST ADDRESS. HEX LOCATION (000018C4) IN CSECT(17801 ) LENGTH (1) 
0 RY REGISTER. HEX VALUE (00000004) aii e438 Sui 807 95 TUMSGWTR ADDRESS HEX LOCATION (000018BA 7 
‘ r IN CSECT (17801 LENGTH (1 
858 861 873 876 879 882 894 897 1012 2522 ( oy 
1169 1179 1286 1308 1319 1327 «1338 «148627 += «14637 79 TUPARM1 ADDRESS. HEX LOCATION (0000189A) IN CSECT(I7801 ) LENGTH (1) 
1448 1457 1460 14668 1489 1501 1529 1566 2218 ~ 1312 
2219 2222 2236 2237 2239 2240 2243 2249 2255 101 TURESUL ADDRESS. HEX LOCATION (0000 18C8) IN CSECT(I7801 ) LENGTH (1) 
2327 2328 2330 2334 2338 2367 2368 2369 2379 763 764 765 766 767 68 769 904 905 
2380 2381 2383 2386 2396 2398 2400 2403 2405 906 907 941 942 943 944 945 946 1019 
2581 2584 2593 2596 2601 1020 1173 1174 #1175 1176 1177 «1178 #1217 + «1218 
0 R5 REGISTER. HEX ¥ALUE {90000005} 1220 1221 1222 1223 1290 1291 1292 1293 1294 
1535 1537 1542 1552 1553 1557 1559 1560 1563 1505 1508 1509 1510 1511 1523 1532 1587 1591 
1963 1967 1968 2048 2049 2106 2108 2113 2915 1592 1593 1594 1595 1596 
2127 2129 2143 2145 2226 2228 2230 2232 2248 590 TURTN ADDRESS. HEX LOCATION (00002690) IN CSECT(I7801 ) LENGTH (?) 
2253 2375 2376 2377 2408 2409 2411 2460 2461 756 1010 1167 1284 2527 
27503 2516 77 TUSTATUS ADDRESS. HEX LOCATION (00001818) IN CSECT (T7801 ) LENGTH (1) 
0 R6 REGISTER. HEX VALUE (00009006) 2500 
7161 778 7186 7196 799 802 821 824 831 78 TUWORK ADDRESS. HEX LOCATION (0000181A) IN CSECT(I7801 ) LFNGTH(1) 
835 845 859 874 880 895 1013 1017 1170 2504 2556 
1183 1185 1189 1194 1196 1202 1204 1225 1287 917 TOA ADDRESS. HEX LOCATION (OO0028EC) IN CSECT (17801 ) TENGTH(?) 
1324 1332 1337 1343 1348 1353 1358 1363 1348 794 
1373 1378 1383 1388 1393 1398 1403 1408 1413 919 TO 1B ADDRESS. HEX LOCATION (00002BFO), IN CSECT (17801 ) LENGTH (?) 
1418 1423 1425 14636 1443 1446 1458 1464 1476 805 807 809 811 813 22 825 832 838 
1892 1894 1898 1900 1904 1907 494% 1913 Joa) 904 ToIC ADDRESS, HE 0 
2SS. HEX LOCATION (000028BC) IN CSECT(I7801 I FNGTH (6 
1922 1969 1970 2009 2050 2224 2244 2256 2292 918 920 922 52 | 926 bon 930 932 aby od 
2397 2402 2404 2410 2413 2415 2465 2471 2473 936 938 940 948 
2508 2513 2514 2582 2594 947 TO1ER ADDRESS. HEX LOCATION (00002934) IN CSECT (17801 ) LENGTH (?) 


17801 --- 


DECLARED 


855 
B44 
867 
878 
921 
923 
925 
927 
929 
775 
780 
776 
933 
935 
937 
931 
939 
893 
1098 
1100 
1102 
1104 
1106 
1108 
1110 
1112 
1092 
1114 
1213 
1220 
1211 
1217 
1201 
1460 
1478 
1525 
1497 
1508 
1533 
1529 
1591 


1534 
1505 
1503 
1544 
1579 
1565 
1566 
1523 
1571 
1484 
1441 
1442 
1587 


NAME 


T01G 
TO 1H 
TO td 
TO 1K 
TOIL 
TO 1 
TO1N 
TO 1P 
T01Q 
TOIT 
TO1T1 
TO1T2 
TO 1U 
TO1V 
TO1W 
TO1X 
TO 1TY 
T012 
TOUA 
TO4B 
TO4C 
TO4D 
TOYE 
TO4F 
TO4G 
TO 4H 
TO4J 
TO4K 
TO6A 
TO6C 
TO6D 
TO6ER 
TOEL 
TO7A 
TO7B 
TO7BB 
TO7TC 
TO7CD 
TO VCE 
TO7E 
TO7ER 


TO7G 
TO7J 
TO7JIJI 
TO7K 
TO7L 
TO7M 
TO7P 
TO07Q 
TO7RR 
TO7S 
TO7SS 
TO7T 
TO7V 


CHANNEL/4962 P/N= 1635136 EC=374888 PAGE 14 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
ATTRIBUTES AND REFERENCES 

162 797 800 803 636 846 860 875 881 

ADDRESS. HEX LOCATION (00002816) IN CSECT(T7801 ) LENGTH (4) 
ADDRESS. HEX LOCATION (000027F6) IN CSECT(I7801 ) LENGTH(2) 
ADDRESS. HEX LOCATION (0000283E) IN CSECT(T7801 ) LENGTH(6) 
ADDRESS. HEX LOCATION (00002860) IN CSECT(I7801 ) LENGTH(6) 
ADDRESS. HEX LOCATION (000028F4) IN CSECT(T7801 ) LENGTH (2) 
ADDRESS. HEX LOCATION (000028F8) IN CSECT(I7801  ) LENGTH (2) 
ADDRESS. HEX LOCATION(000028FC) IN CSECT(I7801 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002900) IN CSECT(I7801  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002904) IN CSECT(I7801 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002656) IN CSECT(I7801 ) LENGTH(6) 
ADDRESS, HEX LOCATION (O00026FC) IN CSECT(I7801 ) LENGTH (4) 
ADDRESS. HEX LOCATION (000026EC) IN CSECT(I7801 ) LENGTH (6) 
ADDRESS. HEX LOCATION(0000290C) IN CSECT(T7801 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002910) IN CSECT(T7801 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002914) IN CSECT(I7801 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002908) IN CSECT(I7801 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002918) IN CSECT(I7801 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002898) IN CSECT(IT7801 ) LENGTA(6) 
{ABDRESS. HEX LOCATION (00002A7C) IN CSECT(I7801 ) LENGTH(2) 
jADDRESS. HEX LOCATION (00002A80) IN CSECT(I7801  ) LENGTH(2) 
jADDRESS. HEX LOCATION (00002A84) IN CSECT(I7801 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002A88) IN CSECT(I7801 ) LENGTH(2) 
;ABBRESS. HEX LOCATION (00002A8C) IN CSECT(I7801 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002A90) IN CSECT(I7801 ) LENGTH(2) 
jADDRESS. HEX LOCATION (00002A94) IN CSECT(I7801  ) LENGTH(2) 
{ABBRESS- HEX LOCATION (00002498) IN CSECT(T7801 ) LENGTH (2) 
BBP RG5 PE BOCHTT GH 90954734 gH SECT CTIGQT |) LENSTH(H 
,ADDRESS. HEX LOCATION (00002A9C) IN CSECT(I7601 ) LENGTH(2) 
ADDRESS, HEX LOCATION (00002B3C) IN CSECT(I7801 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002B4E) TN CSECT(I7801  ) LENGTH(6) 
pADDRESS. HEX LOCATION (00002B38) IN CSECT(I7801 ) LENGTH(2) 
sHPRPEGS, (MEE BOCATE GH (OO9G2E4H) JN CSBST(TIEOT ob TENTH UA 
jADBRESS. HEX LOCATION(00002B1A) IN CSECT(T7801 ) LENGTH (4) 
ADDRESS. HEX LOCATION (00002E12) IN CSECT(I7801  ) LENGTH(2) 
ADDRESS. HEX LOCATION (OOOO2E4C) IN CSECT(T7801  ) LENGTH(6) 
;AQDRESS. HEX LOCATION (00002F00) IN CSECT(T7801 ) LENGTH (6) 
ADDRESS. HEX LOCATION (O0002E9C) IN CSECT(I7801  ) LENGTH(4) 
ADDRESS, HEX LOCATION (00002FCO) IN CSECT(I7801  ) LENGTH (6) 
ADDRESS, HEX LOCATION(O0002F1C) IN CSECT(T7801  ) LENGTH (2) 
jAgBRESS. HEX LOCATION (00002F10) IN CSECT(I7801 ) LENGTH(2) 
SBP MPH EOCATEGH (OOD0ZFERL GI CBEST 7891 g) LENGTH 
1480 1483 1491 14698 1507 1514 1527 1573 

ADDRESS. HEX LOCATION (00002P1E) IN CSECT(I7801 ) LENGTH (4) 
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